home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / News Stack™ 1.1.cpt / News Stack™ 1.1 / News Stack 1.1a2 / background_3800.txt < prev    next >
Text File  |  1987-09-04  |  4KB  |  208 lines
  1. -- background: 3800 from stack: in.1a2
  2. -- bmap block id: 4094
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   hide menubar
  9.   push recent card
  10. end openBackground
  11.  
  12. on saveClip
  13.   global clippingStr
  14.   set lockscreen to true
  15.   set cursor to 4
  16.   put field clipping into clippingStr
  17.   push card
  18.   ask "Clipping stack to save to" with "Clipping"
  19.   put it into theStack
  20.   go stack theStack
  21.   go last card
  22.   domenu "New Card"
  23.   put clippingStr into field clipping
  24.   pop card
  25.   put "Clippings stored in stack '" & theStack & "'"
  26. end saveClip
  27.  
  28.  
  29.  
  30. -- part 4 (field)
  31. -- low flags: 00
  32. -- high flags: 0007
  33. -- rect: left=14 top=33 right=270 bottom=488
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 3
  38. -- text size: 9
  39. -- style flags: 0
  40. -- line height: 12
  41. -- part name: Clipping
  42.  
  43.  
  44. -- part 12 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=385 top=271 right=288 bottom=412
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 20689 / 20689
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Home
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   visual effect iris open
  59.   go Home
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 14 (button)
  65. -- low flags: 00
  66. -- high flags: A000
  67. -- rect: left=14 top=272 right=288 bottom=68
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Clear
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   global clippingStr
  79.   answer "Clear your clippings?:" with "Clear" or "Cancel"
  80.   if it = "Cancel" then exit mouseUp
  81.   put empty into clippingStr
  82.   put empty into field clipping
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 15 (button)
  88. -- low flags: 00
  89. -- high flags: A000
  90. -- rect: left=71 top=272 right=288 bottom=125
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Text
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   global clippingStr
  102.   put field clipping into clippingStr
  103.   ask "Filename for output"
  104.   put ":" & it into fileStr
  105.   open file fileStr
  106.   write clippingStr to file fileStr
  107.   close file fileStr
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 16 (button)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=466 top=271 right=288 bottom=494
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 6720 / 6720
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Return
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   visual effect iris close
  127.   pop card
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 17 (button)
  133. -- low flags: 00
  134. -- high flags: 0000
  135. -- rect: left=411 top=271 right=288 bottom=439
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 15420 / 15420
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Prev
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   visual effect wipe right
  147.   go to previous card
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 18 (button)
  153. -- low flags: 00
  154. -- high flags: 0000
  155. -- rect: left=440 top=271 right=288 bottom=464
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 16560 / 16560
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Next
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   visual effect wipe left
  167.   go to next card
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 19 (button)
  173. -- low flags: 00
  174. -- high flags: A000
  175. -- rect: left=127 top=272 right=288 bottom=181
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Save
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   saveClip
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 20 (button)
  192. -- low flags: 00
  193. -- high flags: A000
  194. -- rect: left=183 top=272 right=288 bottom=252
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Clip Stack
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   go to stack "Clipping"
  206. end mouseUp
  207.  
  208.